home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / lcppb.zip / LCPPANS.ZIP / SUBDIRS.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-08  |  608 b   |  29 lines
  1. // subdirs.cpp -- List subdirectory names
  2.  
  3. #include <iostream.h>
  4. #include <dir.h>
  5. #include <dos.h>
  6.  
  7. main()
  8. {
  9.   struct ffblk fb;
  10.   char *wildCard = "*.*";
  11.   int done;
  12.  
  13.   cout << "Directories in current path:\n";
  14.   done = findfirst(wildCard, &fb, FA_DIREC);
  15.   while (!done) {
  16.     if ((fb.ff_attrib & FA_DIREC) != 0)
  17.       cout << fb.ff_name << '\n';
  18.     done = findnext(&fb);
  19.   }
  20. }
  21.  
  22.  
  23. // Copyright (c) 1990 by Tom Swan. All rights reserved
  24. // Revision 1.00    Date: 12/06/1990   Time: 03:08 pm
  25.  
  26. // Revision 1.01    Date: 07/08/1991   Time: 05:41 pm
  27. // Converted for Borland C++ 2.0
  28.  
  29.